home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / imb9110.zip / BITLIST.BI < prev    next >
Text File  |  1991-10-01  |  829b  |  21 lines
  1. '****************************************************
  2. '*  BITLIST.BI - structure definitions, constants,  *
  3. '*               and function defintions for the    *
  4. '*               bit list handler functions         *
  5. '****************************************************
  6.  
  7. CONST blCLEAR = 1           ' Clear all bits
  8. CONST blSET = 2             ' Set all bits
  9. CONST blINVERT = 3          ' Invert all bits
  10. CONST blUNION = 4           ' Merge two lists
  11. CONST blINTERSECT = 5       ' Keep intersecting bits
  12. CONST blCOPY = 6            ' Copy bitlist
  13. CONST NULL = 0              ' status value for some errors
  14.  
  15. DECLARE FUNCTION blCreate (Size%)
  16. DECLARE SUB blDestroy (BitList%)
  17. DECLARE FUNCTION blGetBit (bl%, BitNum%)
  18. DECLARE FUNCTION blSetBit (bl%, BitNum%, State%)
  19. DECLARE FUNCTION blListOp (Op%, bl1%, bl2%)
  20.  
  21.